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ett . ’ greee robe FFs 1bses HONONT eaeserbeteuw.mars1 2% ct) 
- TITLE LIBRS 1GNAL = Condition Hand\ ing Foci t ity SIGNAL _and STOP 
eIDENT /1-018/ ; File: LIBSIGNAL.MAR Edit: ACG0O183 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


is 
3* e 
38 ns 
3 » 
38 * 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3* IN F THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
‘* TRANSFERRED. s 
: * 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. # 
: * 
3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
- SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. a 
+r : 
3 + 
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SOoOooooooooooooooooooooooooooo 


; ABSTRACT: 


The Condition Handling Facility supports the exception 
pends tne mechanisms needed by each of the common Languages. 
d th some control over fixup, 


It prov 
veers ine. and flow of control on errors. It provides 
su 


; es the programmer w 

; system and application writers with the ability to 

F override system aeageges in order to give a more suitable 
3 application oriented interface. 

: The CHF includes presedures to allow higher level Language 
: users to change the hardware enables, and to establish and 
: revert condition handlers. This module includes procedures 
3 to signal exceptions (LIBSSIGNAL and LIBSSTOP). e 

: facil ty also includes a procedure to unwind the stack 

3 from a handler to its establisher (SYSSSET_UNWIND). 

: To understand CHF more fub bys, cefer to its functional 


specification and to the STARLET exception routine (EXCEPTION). 


; ENVIRONMENT: Any access mode--normally user mode 
: AST reentrant 


: AUTHOR: Peter F. Conklin, CREATION DATE: 12-Nov-76 


MUNIN BE BEE EEE EWN III ononononononononony 2 2 2 
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++ 
; FACILITY: Condition Handling 


om 


Mods 


Heat 


" 
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SOoOoOoOCOCOOOCOOOSOOOOOOOOoOOSoSoOS 
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-SBTTL Modification History 
MODIFIED BY: 


Peter F. Conklin, 27-Jan-78 VERSION 01 
Original, based — CHF Rev 4 spec. 
ghanged to, Rev 5 spec, 
sack wit 
ignal args; add PSL a 
Reformat stack to mimic EXCEPTION exactly. 
Change to PSECT biSet ORE 
Use Abed P SYSSEXCMSG, _ oF 
ove ort last chance h 
ST forces overs a overs “handler call. 
Change name to SYSSEXCMSG. TNH 24-Jan-78 
Remember EXCVEC saan 
Continue from STOP now vectors 2. . eee EXIT. 
Change name of OWN PSECT to LIBSDA 


eeueeveeen 
am 
oO 
o-- 
“=< 


Make OWN be P June-7 


edit er, field. JBS 1 
; 1-015 = Add to the PSECT directives. JBS 21-DEC-78 
; 1-016 = Make Sure shat SP s sgeys bet oe needed information. 
: SPR 11-24926 SBL 13-July-19 


: sel 0183 May-198 

1-018 - APEOTESe Andrew C. Goldstein 30-Dec-1980 15: 44 
: onpLete rewrite, to correct stack management bu 
gor ging of Signal vectors, and to use SYS$SRCHA 
to the EXEC's 

condition handler search algori 
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h “'no hand er'' or access violation’’ if bad stack. 


Use 6“ eddreseine ie in ean to SygsuiND. JMT 28-Feb-78 
Reformatted cacti et three digits in the 


1-017 = Remov poets iss ten that the + a frame must be in P1 space. 


RbLeR entry 
andler search Logic eliminating duplicated 


oT 


on Hendl ing Facility SIGHAL ‘and ya 3 4 =1386 90:18:36 r th 


¢ «SBTTL DECLARATIONS 


em sft MEESTER mans Pd 


AX/VM 
BRT CIJLIBSIGNAL .MAR; 1 
9 

3G ; 

g: ; EXTERNAL REFERENCES: 


~-DSABL GBL 
-EXTRN SYSSSRCHANDLER 


; INCLUDE FILES: 


SLIBDEF sLibrary status defs 
SSFDEF sStack frame offsets 


0 

4 

8 

9 

9 . 

: ; This macro defines the formals to a procedure 
i . 

5 -MACRO SFORMAL LIST 
6 $$FORMAL=0 

; <LIST> 

0 

4 

8 

9 

0 


SSE ORMAL =$5F ORMALS4 
L=S$FORM 


AEND 
*ENDM $SFORMAL 


EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 


a 2 ss ob — s — ss — a 8s sd 4 8 a as 


-PSECT _LIBSCODE,PIC,SHR,NOWRT,LONG 
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‘a -SBTTL LIBSSTOP = Stop execution via signalling 
FUNCTIONAL DESCRIPTION: 


This procedure is gattes whenever it is impossible 
to continue execution and no st is possible. 
It signals the exception. It always fo 

severity code of severe_error on each call to 

a handler. Handler requests to continue are 
treated as an error and produce a panic exit. 

This procedure is guaranteed to never return. 


stg 


cme 
he 
on 
PO 
os 


rces the 


CALLING SEQUENCE: 
CALL LIBSSTOP ( 
CONDITON_VALUE.ric.v, standard signal name 


{ARGS.rl.v)) additional FAO parameters for message 
(stop adds PC and PSL to end) 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
Never returns 


OOOONAULS WN OO OONAUE WN O ODONAULS WO OONAULS WI OOONAu 


Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Se Fe Ge GeGse Ge Ge Ge Sse ce Ge Ge 
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1 -—— 
; SFORMAL <- 
4 CONDITION_VALUE- signal code 
00 5 > : {parameters} 
0000 009 ; -ENTRY Ljessver.2 :No registers (assumed below) 
be DD 000 HY PUSHL @# :Set code for STOP | 
—E 11 0004 9 BRB SIGNAL :Go do the signallling 
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ee -SBTTL LIBSSIGNAL = Signal Exceptional Condition 
> FUNCTIONAL DESCRIPTION: 


vstgrom 8 


This procedure is called whenever it is necessary 

to indicate an exceptional condition and the procedure 
can not return a status code. If a handler returns 
with a gent ‘nue code, LIB$SIGNAL returns with 

all registers including RO and R1 preserved. Thus, 
LIBSSIGNAL can also be used to plant performance and 
debugging traps in any code. If no handler is found, 


dit 
IGN 
191 
1% 
13 : 
132 : 
3 139 : 
6 198; 
44 4 ; 
06 64 : 
B08 08 3 or all resignal, a catch-all handler is CALLed. 
00 4 $ CALLING SEQUENCE: 
0008 05 ; 
0006 88 3 CALL LIBSSIGNAL ( 
0006 07 ; 
S449 +: 3 CONDITION_VALUE.rlic.v, standard signal name 
0006 10 ; {ARGS .rl.v)) additional FAO parameters for message 
Babe V $ (signal adds PC and PSL to end) 
0006 ig 3; INPUT PARAMETERS: 
0006 14 ; 
0006 15 ; NONE 
0006 16 ; 
0006 17 ; IMPLICIT INPUTS: 
0006 18 ; 
0006 19 ; NONE 
0006 0; 
0006 1 ; OUTPUT PARAMETERS: 
0006 ¢ ; 
0006 3 NONE 
0006 4; 
0006 5 ; IMPLICIT OUTPUTS: 
0006 e 3 
0006 13 NONE 
0006 8 ; 
0006 9 ; COMPLETION CODES: 
0006 0; 
0006 13 NONE 
0006 ¢ 3 
Babe Z 3; SIDE EFFECTS: 
$608 os If a handler unwinds, then control will not return. 
006 6 ; A handler could also modify RO/R1 and change the 
006 1% flow of control. If neither is done, then all 
006 3 ; registers are preserved. 
006 : 
006 40 ;-- 
44 41 } 
0000 06 4g ENTRY LIBSSIGNAL,O No registers (assumed below) 
01 DD 0008 “ PUSHL #1 sSet code for SIGNAL 
08 11 000A 44 BRB SIGNAL go do the signalling 


vig 


SIGNAL = 


C 4 
CBee 
C ‘8 
C 50 
= 
a 
48 54 
C 55 
0c 2$ 
a 38 
CBS 
00C 5 
000C¢ 60 
000C 61 
00C 86 
00C 6 
00C 64 
00C 65 
445 66 
00C 67 
000C 68 
000C 69 
000C 70 
000C 71 
000C 7 
000C 7 
000C 74 
000C 75 
9495 7 
00C 7 
000C 78 
000C 79 
000C 80 
000C 81 
000C Hf 
00C 8 
00C 84 
00C 85 
00C 36 
00C 4 
00C 8 
C 34 
C 0 
C 91 
C 38 
00C 9 
00C 94 
00C 95 
00C 38 
00C 9 
0015825C 00000001 00C 98 
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SEP=19 
Internal Routine to Signal Exceptions 


e to Signal Exc 
7 -SBTTL SIGNAL - 
FUNCTIONAL DESCRIPTION: 
This routine is used by LIBSSTOP and LIBSSIGNAL to do 
the actual exception signaling. It converts the call frame 
and argument List into mechan sm and signal vectors. 
It then jumps to the EXEC's common condition handler 
search routine. 
CALLING SEQUENCE: 


PUSHL #code :1=SIGNAL, 2=STOP 
BR S 


IGNAL 
INPUT PARAMETERS: 
AP points to the arg list 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
If a handler unwinds, then control will not return. 
A handler could also modify RO/R1 and change the flow 


of control. If neither is done, then all registers 
are preserved. 


The following is a dummy signal argument List that is 
used if the call has no arguments. This dummy List 
has just one argument, in particular the signal code. 


UMMY_SIG_ARG: 


-CONG 1,LIB$_SIGNO_ARG idummy arg List 


cal Saar eeeeeneeneneennen eee 
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+ 
The code for the signal Foye tne is stra 


ght forward 
and consists of the follow : 


i 
ng three parts: 


evaporate the call stack 
format the handler argument List 
jump to common handler search routine 


Qo 


The onty peculiar algorithm has to do with evaporating 
the call frame. This is needed so that the format of 

the eteck is the same whether the signal was an 

explicit call to signal or was a hardware detected 

exception. The latter has no frame because the hardware 
ushes the PSL, the PC, and some arguments. The exception 
andler in the system adds a reason code to identify the 
exception and then goes into a duplicate of this code. 


The algorithm to evaporate the frame is different for 

the cases of being called by CALLG or CALLS. In the Latter 
case, the arguments also must be evaporated (by incorporation 
into the signal vector). In the former case, the argument 
List must be copied in order to allow 

the handler to alter the gover sty and resignal. At the 
same time, the caller's PSL and PC are appended to 

the List for consistency with the hardware detected 
exceptions. In both cases, the only trick in the algorithm 
is to ensure that SP stays below any information on the 
stack, and to allow for various number of parameters 
including the 0 to 3 byte stack alignment on call. 


2 
St et et et et et et et et et et et et et et et ee et ee 
OO NAUE WN O OONOU EWN 0 ODNIAUE Wt" O 
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SOoOOCoOCoOoOOoOoOOooSoo 
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14 SIGNAL: 
93 14 PUSHR #*M< save pe R1'RO 
3F 06 AD OD 16 BBC aSF Sv Ons, SF $W_SAVE “MASK CFP) 4 | 
18 4 go handle CALLG call 
Ba 
13 5 ; Here on a CALLS with the stack: 
18 § ; (SP) = Ae iee} = caller's RG 
18 40 ; m (FP) = caller's R1 
018 41; -O4(FP) = gees. for LIB$Si0P or LIBSSIGNAL 
gle ts ; ey = his incarnaticn's handler) 
1B 45; 4(FP) = CALL frame mask and caller's PSwW 
018 44; O8(FP) = caller's AP 
0018 45; 12(FP) = caller's FP 
018 rf) : 16(FP) = ‘ve I s PC 
018 47 ; ow o 3 bytes of ol ignment filler 
018 rt : tng = eR. of argumen 
0018 49 ; 4(AP)++ arguments to SIGNAL 
0018 50 ; 
0018 51 
08 AD OD 0018 26 PUSHL SFSL_SAVE_AP(FP) ssave caller's AP 
7E oc Bats 5 MOVPSL <=-(SPY zsave PSL 
6— 04 AD B80 00 54 MOVW SFSW_SAVE_PSW(FP),(SP) tupdate with caller's PSw 
10 AD OD 88 4 55 PUSHL SFSL_ SA VE- PC(FP) ssave caller's PC 
5D OC AD 00 0027 56 MOVL SFSL_SAVE_FP(FP) FP srestore caller's FP 
8 8 57 —_ stack ene” is now officially gone 
51 6C 9A 0028 58 5$: MOVZBL (AP),R1 et number of args 
09 is 88 f 59 BNEQU 10$ ranch if some 
6C _ DDAF OD 0 60 MOVL DUMMY _SIG_ARG+4, (AP) fuse dummy if none 
7C¢ 6©6001)—_ «iO s«C0034 61 MOVL #1,-(AP) z;make room and count as one arg 
F2 11 itt 6¢ BRB 5$ proceed 
5 FB AC 9E $039 64 10$: MOVA ye RO spatns to top of signal vector 
6C 1 02 C1 0030 65 ADDL #2,R1, (AP) z;add PC & PSL to argument count 
F4 AC a dO Opes 66 208: MOVL (apne ~12(AP) :copy args into signal vector 
F9 514 0043 67 SOBGEQ R1,20$ 
=_—~ a rk +4 MOVa (SP)+,-(AP) put away PSL' PC pair 
5C BE DO 0048 0 MOVL (SP)+,AP srestore caller's AP 
70 08 AE 4 04 71 MOVL 8(SP),-(RO) store code tor $1GNAL/STOP 
70 =6€E D 005 es MOVQ (SP) ,=-(RO) store caller's R1‘'RO 
SE 50 00 005 7 MOVL _RO, SP iclean off Gael space 
4E 11 0058 37% BRB 80$ :go join common code 
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e to Signal Exc 


Here on a CALLG 


At this point the stack is: 


NOTE: In the computation below 
then seems obviously needed. T 
querentee that SP is not being set above the current location of 

he saved RO'R1 for the case of the smallest possible argument List. 
40$: MOVL FP,RO 

BSBB 0 

400 50$: MOVZBL (APY,R1 
401 BNEQU 
MOVAB DURMY _S1G_ARG, AP 


BRB 

OVAL ) 
L 

j 

§ 


1986 Ws1d:e8 


AVE_PSW(FP) , (SP) 
AVE PC (FP) 


0 

) 

( 

SAVE _AP(FP) ,4(SP) 
$ 

$s - 
SAVE_FP(FP) ,FP 


Ller's R1 

e for LIBSSTOP or LIBSSIGNAL 
this incarnation’s handler) 
rame mask and caller's PSW 


to 3 bytes of alignment filler 


SP is set two long words lower 
two longword bias 


spoint to current fram 


e 
scalculate pre-CALL SP into RO 


sget arg count 
sproceed if not empty 
suse default if empty 
zgand try again 


scompute variable part of vector 


zsset SP to final val 


ue 
zsave code for SIGNAL/STOP 
sput R1°RO in correct place 


;store code in vector 


ssave caller's AP for a moment 


zssave PSL for a moment 
zschange PSL to caller's 


ssave caller's PC for a moment 
sshift FP back to caller's FP 
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91 416 ; 
91 417 ; At this point, the extra frame created b i e CALL to us 
91 $18 : has been removed. We can now proceed to b ld the signal 
4 133 3; and mechanism vectors and the final arg list t. 
91 421° 
70 8E 7D 91 4 § MOVE (SP)+,=-(RO) smove caller's PSL'PC to vector 
51 6C 9A 009% 4 MOVZBL <AP),R1 iget arg count 
70 gc3! 00 97 424 708: MOVL CAPIERTI,~(RO) : Copy args to signal vector 
F951 OF 98 425 SOBGTR R1,70$ ; top dow 
51 6¢ 9A O09E 4 $ MOVZBL (AP) RI iget arg. coun 
70 31 0 C1 OA 4 ADDL3 #2,R1,-(RO) signal count fe 2+arg count 
C BE DO OOAS 4 8 MOVL (SP)+;AP ich ange AP £0 cal er's AP 
OA 4 :CALLS entry joins here 
7E 93 CE OOA 430 80S: MNEGL #3,-(SP) sinitialize depth 
D OD OOAB 431 PUSHL FP tinitialize frame 
04 0D OOAD 4 ¢ PUSHL #4 iget mechanism vector length 
6—E OF tar 4 PUSHAB (SP) : nd arg is mechanism vector 
1C AE 9F Q00B1 434 PUSHAB 28(SP) ist arg is signal vector 
02 oD O00B4 435 PUSHL #2 stwo arguments 
00B6 4 § 
00B6 437; 
90B6 438 ; At this point the stack is all set for a call to any handler: 
00B6 439 ; 
0086 440 00(SP) = | 
0B6 441; 04(SP) = signal vector address ( 36(SP) ) 
0086 226 : we tere = mechanism vector address ( 12¢SP) ) 
00B6 443 ; 12(SP) = mechanism vector Length (4) \ 
00B6 444 ; 16(SP) = mechanism vector frame re ' 
00B6 445; O(SP) = mechanism vector depth (-3) + mechanism 
00B6 446; 4(SP) = mechanism pet bed ca He : RO i 
00B6 447 ; 8(SP) = mechanism v ca , ae 
Boee 448 ; 2(SP) = code for LISSsTOP or Cress tGNAL 
0B6 449; 6(SP) = 2¢number of caller's args 
00B6 450 ; 40(SP)++ ¢ copy of caller's signal args t signal 
00B6 451 ; cue er's return PC ' args 
0B6 $26 $ ase salier* s PSL 
0B6 453; 
0B6 454; The next higher location on the stack is the 
pee $3? 3 value of the caller's SP just before the CALL. 
00B6 457 ; AP and FP have been restored to the caller's values. 
ae 
00000000 ° GF 17 bbe 460 JMP G*SYSSSRCHANDLER :90 find a handler 


oh kee . Se ae 
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: ? § ae ~SBTTL OLD_SP = Internal Routine to Calculate Old SP 
c 4 4 ; FUNCTIONAL DESCRIPTION: 
ci6 : : This routine is called to calculate what SP was before 
C 467 ; a@ particular CALLG that resulted in a specific stack 
: 2 3 ; frame. RESTRICTION: CALLS not handled. 
C 470 ; CALLING SEQUENCE: 
¢ iff : NONE 
c 474 : INPUT PARAMETERS: 
dee $78 ; RO = address of stack frame in question 
Sat 478 ; IMPLICIT INPUTS: | 
gat ‘ 0 : NONE 
ooB¢ 4 ; : OUTPUT PARAMETERS: | 
ec 4 s : RO = value of SP before CALL in question 
ac 486 : IMPLICIT OUTPUTS: 
ooB¢ 4 8 : NONE 
OBC 490 : COMPLETION CODES: 
OBC 491; 
Oee 98 — 
¢ 494 > SIDE EFFECTS: 
C 4696: R1 is clobbered 
OBC 497; 
¢ 49 j-- 
BC Os «449 
Bey 
BC ‘ OLD_SP: 
02 0 EF BC EXTZV #SFSV_STACKOFFS,#SFS$S_STACKOFFS,- 
7E A BF 4 F$wW_SAVE MASK(RO),-(SP) :get stack offset 
51 06A0 OC 00 EF ¢ 5 EXTZV #SFSU_SAVE_MASK,#SFSS_SAVE_MASK,SFS$W_SAVE_MASK(RO),R1 
¢ § sget register mask 
38 14 «6C C ADDL #SFSL_SAVE_REGS,RO iStandard frame | 
0 gf C cB 3 ADDL (SP)+,RO 37SP correction 
03 i cf 10$: BLBC R1,208 zif regteter bit set, | 
50 oF ¢ D 1 ADDL2 ; count the register 
51 51 OFF BF 04 511 208: ASHL #-{,R1,R1 discard bit | 
1 ee o9 \ BNEQU 10% sloop until all done 
0 0B 1 RSB sreturn | 
oc 14 
at 
Det? 
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SF $W_SAVE_PSW 
SIGNAL 02 
SYSSSRCHANDLER eeeeeree x 0 


demesne eee eee e oa 
3 Psect synopsis ! 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 < 0.) O01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
-LIBSCODE 000000DC ¢« 220.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Psect synopsis output 
Cross-reference output 
Assembler run totals 


Initialization 30 8 0:00. ¢ 0:00:01.15 
Command processing 109 :00. 0: b 308-9 
Syabol tabl t ~ 8:00:00 ; 6; 0:0 3 
able sor :00:00. 

eS 94 9 :00: i 

at & 


ass 00:00. 
Symbol table output ; f : 8 
38 ‘ 


The working sgt Limit was 1050 pages. ° 
12999 bytes (26 pages) of virtual memory were used to buffer the intermediate code. 

[rere were 10 pages of symbol table space allocated to hold 124 non-local ane 10 local symbols. 
517 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

10 pages of virtual memory were used to define 9 macros. 
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++ 
(MLACTNIAWw 


<<cyvumuvmeno 
min 


———— 
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VARI Macro Run Statistics “oma t!0n Handling Facility SIGNAL and 19 sFor15Be PP:18:28 UCTENTE. SREScIBSTGNAL.man:1 2% 1H) 
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! Macro Library statistics ! 


te wenn sn cen ene emer ese ae ee sn} 


Macro Library name Macros defined 
_$255S$DUA28: (SYSLIBISTARLET.MLB; 2 ners te 
268 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBSIGNAL/OBJ=0BJ$:LIBSIGNAL MSRC$:LIBSIGNAL/UPDATE=(ENH$:LIBSIGNAL ) 
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RY 
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